From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 May 1993 06:27:47 +0000 (+0000)
Subject: (isearch-search): Take note of isearch-case-fold-search initial value.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95810
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=43873131f4d7299a532f339d723e135f11c2b76c;p=emacs.git

(isearch-search): Take note of isearch-case-fold-search initial value.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 4fd6a1a14dc..16ab73c73c2 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/05/19 04:44:42 $|$Revision: 1.36 $
+;; |$Date: 1993/05/27 03:33:12 $|$Revision: 1.37 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -1269,7 +1269,7 @@ If there is no completion possible, say so and continue searching."
 (defun isearch-search ()
   ;; Do the search with the current search string.
   (isearch-message nil t)
-  (if search-upper-case
+  (if (and isearch-case-fold-search search-upper-case)
       (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string)))
   (condition-case lossage
       (let ((inhibit-quit nil)